[1] "Missing treatment group image"
Group 29: Helena Møller, Emma Christiansen, Casper Harreby, Frederik Holmstrup, and Laura Christiansen
# 03_augment.qmd
# Calculating "body fat percentage" and "conicity index".
# Add new variables
diabetes_data <- diabetes_data |>
mutate(bin_sex = case_when(
sex == "male" ~ 1,
sex == "female" ~ 0
),
bfp = 1.39*bmi+0.16*age-10.34*bin_sex-9,
waist_m = waist/100,
height_m = height/100,
ci = waist_m/(0.109*sqrt(weight/(height_m))),
dm_status = case_when(
diagnosis == 0 ~ 1,
diagnosis == 1 & medication == 0 ~ 2,
diagnosis == 1 & medication == 1 ~ 3
))[1] "Missing treatment group image"
:::: {.columns} ::: {.column width=“50%”} - blabla - blabla
::: ::: {.column width=“50%”}
:::
R for Bio Data Science